﻿Imports BUS
Imports DTO

Public Class frmDanhSachTraCuuPhieuRutTien
    Private _dsprt As New List(Of PhieuRutTienCrt)()
    Public Property DSPGT() As List(Of PhieuRutTienCrt)
        Get
            Return _dsprt
        End Get
        Set(ByVal value As List(Of PhieuRutTienCrt))
            _dsprt = value
        End Set
    End Property

    Private Sub frmDanhSachTraCuuPhieuGui_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 0 To _dsprt.Count - 1
            Dim lv As ListViewItem = lvwDanhSachTraCuuPhieuRutTien.Items.Add((i + 1).ToString())
            lv.SubItems.Add(_dsprt(i).MaSo.ToString())
            lv.SubItems.Add(_dsprt(i).TenKH.ToString())
            lv.SubItems.Add(_dsprt(i).NgayRut.ToString())
            lv.SubItems.Add(_dsprt(i).SoTienRut.ToString())
        Next
    End Sub
End Class